home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / commodore-scene-files / Coverdisks / CDU / V4D04.D64 / ge.extra info (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  534 b   |  23 lines
  1. 100 POKE53280,0:POKE53281,0
  2. 110 SP$="                    "
  3. 120 PRINT"[147][208]RINT TO ([211][146])CREEN OR ([208][146])RINTER:"
  4. 130 GOSUB 1000:IF K$="S" THEN 300
  5. 200 OPEN 4,4,7
  6. 210 PRINT"[196]OUBLE [204]INE [211]PACING ?"
  7. 220 GOSUB 1000:IF K$="Y" THEN L=1
  8. 230 PRINT"[196]OUBLE [215]IDTH ?"
  9. 240 GOSUB 1000:IF K$="Y" THEN W=1:PRINT#4,CHR$(14);
  10. 250 PRINT"[147][208]RINTING...":GOTO 310
  11. 300 OPEN 4,3:PRINT"[147][208]RESS A [203]EY TO [208]AUSE....";:W=1
  12. 310 OPEN 2,8,2,"GE.INFO,S,R"
  13. 320 GET#2,C$:IF ST>63 THEN 380
  14. 330 PRINT#4,C$;
  15. 340 IF C$=CHR$(13) AND L THEN PRINT#4
  16. 350 IF C$=CHR$(13) AND W=0 THEN PRINT#4,SP$;
  17. 360 IF PEEK(197)<>64 THEN 360
  18. 370 GOTO 320
  19. 380 CLOSE 2:CLOSE 4
  20. 390 END
  21. 1000 GET K$:IF K$="" THEN 1000
  22. 1010 RETURN
  23.